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;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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v04-000 PROGRAM DESCRIPTION mio 1 84:33:98 cry SRCJMMG.MAR; 1 “eis d) 
9 é «SBTTL PROGRAM DESCRIPTION 
° : FACILITY 
§ ; SYSTEM DUMP ANALYZER 
5 : ABSTRACT 
$ ; THIS MoD ULE CONTAINS ROUTINES RELATING TO FORMATTED 
9 § 3 A SPECIFIED PAGE TABLE. 
a8 49 ; ENVIRONMENT 
00 42: NATIVE MODE, USER MODE 
4 rk : 
000 44 ; AUTHOR 
$008 te : TIM HALVORSEN, JULY 1978 
0000 47: 5 
0000 48; MODIFIED BY 
0000 49: 
0000 50 ; v03-001 wMC0001 Wayne Cardoza 19-Aug-1982 
0000 iE Correct the use of YMAXPEN to allow the last page. 
0000 32 ; 
0000 53 :-- 
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yol~000 0 ING ROUTINES 16-SEP-1984 94:33:98 AX/VMS Macro V04-00 Page 


SNS =SEP=1984 SDA.SRCIMMG.MAR; 1 
-SBTTL DECLARATIONS 

SYMBOL DEF INTIONS 

SOMPDEF ; Dump file definitions 


OOOGOOOCOOCOOOCSoSO A- 


OOOO OCOCOCSooCSCoSooO FY 


COOQOQoQoQooooooCoo * 


60 : 

61 SOPDEF ; Define opcode equivalences 
96 SOPTDEF 3; Options definitions 

6 SPFNDEF ; Page frame data definitions 
64 SPHDDEF ; Process header definitions 
65 SPTEDEF ; Page table entry definitions 
rf STPADEF 3; TPARSE definitions 

6 SVADEF ; Virtual address definitions 
68 SWSLDEF ; Working set List definitions 
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LE FORM 
E DEFINTI SEP=1984 SDA. SRCJMMG.MAR; 1 
7 .SBTTL STORAGE DEFINTIONS 
rs 3 WRITABLE STORAGE DEFINITIONS 
75° 
0000 3 06 .PSECT SDADATA,NOEXE,WRT 
09 78 BUFFER: 
00000040 00 19 .BLKL 16 : GETMEM WORK BUFFER 
0000044 oe rttasanniat tt 1 VALUE OF MMGSGL_MAXPFN 
80900 42 0044 j MMG$GW_BIGPFN = SDASGL_MAXPFN + 2 : 
0044 4 SDASAB_STATE: 
00000048 D044 85 spasas Tiee" 1 ; VALUE OF PFNSAB_STATE 
0000004¢ a948 $7 eee 1 ; PENSAB_TYPE 
00000050 0046 89 aaa a9 ; PENSAW_REF CNT 
00000054 0050 31 spasaL Pree’ 1 ; PFNSAL_BAK 
00000058 0054 $8 cece Pars 1 ; PFNSAL_PTE 
x H 
0000005C B028 32 Satin Paics 1 ; PFNSAW_FLINK 
x 3 
00000060 Boe 3 satin cre 1 ; PFNSAW_BLINK 
x 3 
00000064 4 13 ~ er F 3; WORKING SET INDEX 
00009000 101 .PSECT MMG,EXE,NOWRT 
0000 198 .DEFAULT DISPLACEMENT, LONG 
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E FOR EXAMINING PFN mi ioets 84:33:98 SDA.SRCIJMMG.MAR; 1 


~SBTTL INIT_PFN == INITIALIZE FOR EXAMINING PFN DATA BASE 


re 
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MMG 
v04-000 I 


pw eo lolololololololeleloleloleloelelolelelelelololo lo ooo Mm: i.) 


INIT_PFN 


THIS ROUTINE MUST BE CALLED BEFORE ANY REFERENCES ARE 
MADE TO THE PFN DATA BASE. 


INPUTS: 
NONE 
OUTPUTS: 


RO = SUCCESS FLAG 
SDASA... CELLS ARE INITIALIZED 


INIT_PFN:: 
«WORD 0 


REQMEM @MMGSGL_MAXPFN, SDASGL_MAXPFN 
REQMEM @PFNSAB_STATE,SDASAB_STATE 
REQMEM @PFNSAB-TYPE,SDASAB_TYPE 
REQMEM a@PFNSAW-REF CNT, SDASAW_REF CNT 
REQMEM @PFNSAL~BAK, SDASAL_BAR 
REQMEM @PFNSAL—PTE.SDASAL PTE 


0000 
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v04-000 DISPLAY_PFN DISPLAY MEMORY MANAGEMENT DA 5-SEP-1984 84:33:98 SDA. SRCJMMG.MAR; 1 “a 
E i ~SBTTL DISPLAY_PFN DISPLAY MEMORY MANAGEMENT DATA | 
E 1 : 
: 13 ; DISPLAY_PFN 
c 1g : THIS ROUTINE IS RESPONSIBLE FOR PRINTING ALL INFORMATION 
E ; RELATING TO THE MEMORY MANAGEMENT DATA BASE. 
E 19 : INPUTS: 
: 1: NONE 
E : OUTPUTS: 
E 5: NONE 
Se SSS i 
BE : -ENABL LSB 
FF42 CF 00 FB 0290 ; CALLS #0,INIT_PFN : SETUP TO READ PFN DATA 
38 OOO0D0000'EF 04 €1 0 93 3 BBC #OPTSV_SINGLEPFN,OPTIONS,20$ |; BRANCH IF LIST WANTED 
: 90 : : DISPLAY A SINGLE SPECIFIED PFN ENTRY 
56 =1C AC 0 9D $ ; MOVL §- TPASL_NUMBER(AP) ,R6 : R6 = PFN TO DISPLAY 
QOO00040'EF 56 Al 38 CMPL R6, SDASGL_MAXPFN ; CHECK IF PFN VALID 
17 02A8 239 BGTRU 1 : BRANCH IF INVALID PFN 
O47C'CF 00 O2AA 240 CALLS #0,W*PFN TITLE : DISPLAY THE TITLE LINE 
O4CF'CF 00 0 AF 41 CALLS #0.W*SHOQ_PFN t DISPLAY THE PFN DATA 
50 01 00 6 BD rk MOVL #1,R0 
wen GR Oe 
Q0000040°EF DD O2C1 246 =  — PUSHL = SDASGL_MAXPEN 
8 C7 47 PRINT 1,<Invalid PFN number (maximum is !XL)> 
- bs i$ 20S: ss 
52 Q0000000'EF 00 0205 250 ~— MOVL SCHSGL_FREECNT.R2 : ADDRESS OF COUNT ARRAY 
53 Q00000000'EF D0 Df 51 MOVL PFNSALTLOLIMIT.R + ADDRESS OF LOLIMIT ARRAY 
54 QO000000'EF DO O2E 3 MOVL PFNSAL"HILIMIT.R&4 t ADDRESS OF HILIMIT ARRAY 
55 00000000'EF 00 EA 33 MOVL § PFNSAL"HEAD,R5 + ADDRESS OF LIST HEADS 
19 00000000'EF 00 €1 FY 38 BBC #OPTSV_FREE,OPTIONS,30$ ; BRANCH IF NO FREE LIST 
a 2$ sue sree page list> 
O3A3'CF 00 FB p 38 a CALLS #0,W*SHOW_PFN_LIST : DISPLAY FREE PAGE LIST 
3 dS 031 ! Fie ee 
D 1 61 TSTL  (R3)¢ 
h 0 16 6¢ TSTL  (R4)+ 
28 1 6 TSTL  (RS)+ 
18 00000000'EF a 1A 264 BBC #OPTSV_MODIFIED, OPTIONS ,40$ : BRANCH IF NO MODIFIED 
ef 9 SUBHO <Modified page list> 
AS'AF 00 FB 6 $ CALLS #0,8*SHOW_PFN_LIST : DISPLAY MODIFIED PAGE LIST 


S3 
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MMG PAGE TABLE FORMATTING ROUTINES 16-SEP-1984 01:35:09 VAX/VMS Macro V04-00 P 
04-000 DISPLAY PFN DISPLAY RERORY MANAGEMENT DA 'ScsePclope OSiSsigo Lenav Cacao MAee] ae? ¢ 
A § 40$: 
; D A TSTL (R3)s 
D C : TSTL = (RB) + 
, 0 7 TSTL (RG) + 
5 nA 0 TSTL = (RS) + 
18 0OOD0000'EF 02 £1 034 7 BBC #OPTSV_BAD,OPTIONS,50$ ; BRANCH IF NO BAD LIST 
4A fh SUBHD <Bad page list> 
AS'AF 00. FB 3 d ; CALLS #0,B*SHOW_PFN_LIST ; DISPLAY BAD PAGE LIST 
28 : PRINT ENTIRE PFN DATA FROM ENTRY 0 TO N 
0 50s: 
31 00000000'EF 03 €1 62 1 BBC HOPTSV_WHOLEPFN, OPTIONS ,708 ; BRANCH IF NOT WANTED 
ata dase 
Q0000000'EF O47C'CF 9€ $4 OVAB WPEN_TITLE ,HEADING_ROUT INE ; SET HEADING ROUTINE 
| 6 06 e 5 CLRL —oR6 ; START AT PFN O 
OOO0O4CF’EF 00 FB 9 86 60$: CALLS 4#0,SHOW_PFN : SHOW PFN IN R6 
56 D6 039 : INCL : SKIP TO NEXT PFN 
00000040'EF 56 D1 039 § CMPL —- R6, SDASGL_MAXPFN : CHECK IF LAST PFN 
EE 18 99 89 es BLEGU 608 + LOOP UNTIL DONE 
6 91 "STATUS SUCCESS 
04 6 A 38 RET 
O3A 9% .DSABL LSB 


PAGE TABLE FORMATTING ROUTINES 1 =SEB-1984 01:35:09 AX/VMS Macro V04-00 Page 19 
SHOW_PFN_LIST, DISPLAY PFN LIST -SEP-1984 03:33:12 [SDA.SRCIMMG.MAR;1 (7) 
A 97 .SBTTL SHOW_PFN_LIST, DISPLAY PFN LIST 
A 38 : 
A 9 ; SHOW_PFN_LIST 
A 5 : THIS ROUTINE DISPLAYS THE PFN DATA FOR THE FREE, 
A 3: MODIFIED AND BAD PAGE LISTS. 
A 5: INPUTS: 
A : : R2 = ADDRESS OF COUNT LONGWORD 
A 08 ; R3 = ADDRESS OF LOLIMIT LONGWORD 
A ; R4 = ADDRESS OF HILIMIT LONGWORD 
A 10 ; R5 = ADDRESS OF LIST HEAD LONGWORD 
AB 88 
A 1 .ENABL LSB 
A 18 SHOW_PFN_LIST: 
0040 A Vv [WORD “M<R6> 
AS 319 SKIP 1 
AE 0 GETMEM (R2),-(SP) : GET LIST COUNT 
0D 50 £9 O3BA 1 BLBC. —- RO, 108 
8p é io PRINT 1,<Count: 112SL> 
CA 4 ~~ —sSGETMEM =(R3),=(SP) : GET LIST LOLIMIT 
0D 50 £9 0306 5 BLBC. R0,20$ 
D9 : a PRINT 1,<Lolimit: 112SL> 
E 8  GETMEM (R4),-(SP) : GET LIST HILIMIT 
0D 50 £9 O3F 9 BLBC = RO, 308 
F 0 ie PRINT 1,<High Limit: !12SL> 
7C°AF 00 FS 88 3¢ "CALLS ~=s #0, B°PFN_ TITLE ; PRINT HEADING LINE 
00000000'EF  O000047C'EF 9F 0406 MOVAB PFN_TITLE,HEADING_ROUTINE : SET HEADING ROUTINE 
11 4 GETMEM (RS ; GET LIST HEAD 
03 50 &8 1D 5 BLBS RO, 35$ 
0052.—s31 20 : 80s: BRW 90$ 
10 12 8 " -gnea «40S ; BRANCH IF NON-EMPTY LIST 
0040 31 40 ae ee 
41 40$: 
O4CF'CF 00 FB 5 4¢ CALLS #0,W*SHOW PFN ; DISPLAY PFN IN R6 
A 4 PFN REFERENCE ~ 
A 44 MOVAW <a@SBASAx_FLINKCR6),R1>,- 
A 45 LONG _OPCODE=MOVAL,- 
= 
4 23 GETMEM 
15 50 €9 0450 48 BLBC RO, 908 : SKIP IF ERROR 
4 PFN_REFERENCE 
é 0 MOVZWL < >.< : SKIP TO NEXT ENTRY IN LIST 
1 LONG OPCODE=MOVL,- 
6 é MAGE=SDA 
03 «13 BEQL 0$ ; LOOP UNTIL END OF LIST 


04-000 SHOW_PFN thst SoSEb=198e 05:38:92 USDAYSRcSIMnGcMARST 


os ° D 
FFCO O31 cf8 ¢ 90$ BRW 408 
00000000" EF yi 47 § ; CLRL HEADING_ROUTINE ; CLEAR HEADING ROUTINE ADDRESS 
4 0478 RET 
47C 28 
47¢ 5 -DSABL LSB 
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v04-000 PFN.TITLE, DISPLAY PFN HEADING LINE ~3Ep= 1982 83:83:93 epee TAG Maas ee th 
rf 4! 1 -SBTTL PFN_TITLE, DISPLAY PFN HEADING LINE 
47¢ § ; 
rth: : : PFN_TITLE 
are 66 ; DISPLAY THE HEADING LINE FOR THE PFN DATA DISPLAY 
47¢ 68 — 
47C 8 
47C 0 - ENABLE LOCAL_BLOCK 
47C 71 
47C es PFN_TITLE: 
0000 047C¢ 7 «WORD 0 
47E 74 
443 75 SKIP 1 
ett 76 PFN_DISP_IF _BIGPFN_THEN 
rt This segs executes t. une PFN Link pbRESS are longword arrays. 
48F HAG a fol 0,< PTE AD DDRES BAK REF CNT FLINK BL 
049C 78 PRINT 0 e < oocec-ll dC PO OFS ee@eeeeoe — 0S ee eeeeoelllUlUlClCU OC OOOO OOUlUCUCCUOC OOOO oe 
Rtas 379 PFN_DISP_ELSE 
04AB This code executes if the PFN Link arrays are word arrays. 
04AB 380 af 0,<PFN PTE ADDRESS BAK REF CNT FLINK BLINK TY 
0488 381 PRINT 0 ° f€eeee eeeoeeoeoeneoon 1 seeeeeeo +eseee2c22 eeeee eeeeon Soa 
O4¢> 382 PFN_DISP_ENDIF 
04C5 zEnd of code that depends on size of PFN Link arrays 
04€5 383 SKIP 1 
04 O4CE 384 RET 
O4CF HH 
O4CF 86 - DISABLE LOCAL_BLOCK 


_* 
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v04-000 SHOW_PFN, SHOW DATA ON A SINGLE PFN ENTR 5=SEP=1984 t Bh: 33: 8 YODA SRCIMMG MARS 1 ih 
4CF 8 .SBTTL SHOW_PFN, SHOW DATA ON A SINGLE PFN ENTRY 
ac 31 ; SHOW_PFN 
ACF 38 : THIS ROUTINE DISPLAYS THE PFN DATA BASE ASSOCIATED 
iC 34 ; WITH A SINGLE PAGE FRAME NUMBER. 
Cock 36 : INPUTS: 
O4cF 38 ; R6 = PAGE. FRAME NUMBER 
se 490 : OUTPUTS: 
4CF 40¢ : THE ENTRY IS DISPLAYED. 
ae 
O4cF 405 7 .ENABL LSB 
O4CF 209 SHOW_PFN: 
0000 O4cF 408 ;WORD 0 
51 00000044'FF46 9€ o4p1 410 HOVAB @SDASAB_ STATECR6],R1 =; GET PFN STATE 
55 50 €9 ee 41g LBC. — RO, 708 : SKIP IF ERROR 
Su 51 03 O00 EF O4E5 41 XTZV Speuey Lot #PFNSS_LOC,R1,RO 
FC64 CF40 «7F (O4EA 414 PUSHAQ LOC_TABLELROJ : ADDRESS OF STRING 
nt RR He apace tases 
51 00000048'FF46 9E are 47 NOVAB @ SSGASAB. _TYPECR6],R1 ; GET PEN TYPE 
3250 €9 Hs 419 LBC 30 $ SKIP IF ERROR 
50 51 O03 00 EF 0508 42° EXTZV RO, 708 _PAGTYP, APFNSS -PAGHYE. R1,R 
FCB) CF4O «0 7F 50D) A PUSHAQ PAGTYP~TABLECROJ ; spréss OF STRING 
07 DD 0512 4 ; PUSHL #7 ‘eneTa OF STRING 
on ||| a aot 
0517 425 MOVAW <aSBASAx EN TAKCRE), R1>,- 
517 426 LONG_OPCODE=MOVAL ,- 
517 427 IMAGE=SDA 
331 428 GETMEM (R1) 
3350 €9 053A 429 70$: BLBC  RO,80$ ; SKIP IF ERROR 
53D 0-430 PFN_REFERENCE = 
3 D 431 MOVZWL <R17-(SP)> ; BACKWARD LINK 
D 4 : CONG {OBCODE=HOWL 
Bt ies 
54D 0-435 MOVAW COSDAEAG FL EI TRKCR6J.R1>.- 
54D 4 : LONG OPCODE=MOVAL ,- 
340 4 IMAGE=SDA 
36 4 8 GETMEM 
7850 «2&9 «(05 439 80$:  BLBC  R0,908 ; SKIP IF ERROR 
pu 440 PFN_REFERENCE 
73k MOVZWL <R17-(SP)> ; FORWARD LINK 
37 44g CONG ZOPCODE=ROVL 
51 Q0000006C'FF46 3E 0583 444 MOVAW es Fie _REFCNTCR6J,R1 


M14 
MMG PAGE TABLE FORMATTING ROUTINES 1 ~$60= 1383 03:33:99 AX/VMS Macro V04-00 Page 14 aie 
v04-000 SHOW_PFN, SHOW DATA ON A SINGLE PFN ENTR -SEP-1 353 SDA.SRCJMMG.MAR; 1 (9) 
445 GETMEM (R1) 
73 9 ay 228 BLBC RO,90$ ; SKIP IF ERR 
re. 1 C 597 4G MOVZWL R1,-(SP) 3; REFERENCE COUNT 
51 00000050'FF46 ODE A 448 MOVAL asbASAL BAKCR6],R1 
5A2 44 GETMEM (R1).-(SP) : BACKING STORE ADDRESS 
30,50 £9 Q5AE 450 LBC RO Ht SKIP IF ERR 
51 00000054*FF46 DE O5B1 451 VAL a@SOASAL_PTECR6],R1 
589 128 GETMEM (R1),-(SP) ; ADDRESS OF PAGE TABLE ENTRY 
26 50 E9 O5¢5 «45 c =. RO, 968 ; SKIP IF ERROR 
6 OD 5cB8 454 HL =R6 ; PFN IND 
3ch 455 PFN_DISP_IF _BIGPFN_THEN ; If greater than 32 Mbytes, then use longwo 
308 :This code executes if the PFN Link arrays are papers orreys. 
05D 456 RINT 12,<!XL 'XL 'XL 'SuwW ‘XL 'XL 'XB !'AD 'xB ! 
pepe 457 PFN_DISP_ELSE 3; Otherwise, use word format 
Q5E1 sThis code executes if the at 4 nian ® olty | F are we 1 arrays. 
Q5E1 458 NT 12,<!XwW WwW ixXW 'XB !'AD 'xB ! 
bece 459 PFN_DISP_ENDIF 
OSEE ;End of code that depends on size of PFN Link arrays 
04 OSEE 460 90$: RET 
OSEF 461 
OSEF 462 -DSABL LSB 


N14 
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ANGE == DISPLAY SYSTEM PAGE 'S-SEP=19Be OS:83:12 LepAveRCHAMG MARsT Pose i 


SDA. SRCJMMG.MAR; 1 (10) 
~SBTTL DISPLAY_SPT_RANGE == DISPLAY SYSTEM PAGE TABLE W/RANGE 


DISPLAY_SPT_RANGE 


; THIS ROUTINE FORMATS THE ENTIRE CONTENTS OF THE SYSTEM 
; PAGE TABLE, OR ANY SUBRANGE THEREOF. 

: INPUTS: 

; OPTIONS = OPTIONS FLAGS (RANGE OR LENGTH BITS RELEVANT) 
: ESP = START OF PAGE TABLE VA 

; (OR, IF LENGTH BIT SET) 

; ESP = S{ZE OF PAGE TABLE VA 

: ESP+4 = HIGH LIMIT OF PAGE TABLE VA 

: OUTPUTS: 

: NONE 


.ENTRY DISPLAY_SPT_RANGE ,“M<R2,R3,R4,R5> 
MOVAB OPTIONS, RO : POINT TO OPTIONS WORD 
MOVL (RO), RO 

3$: MOVL ESP, R1 POINT TO EXPRESSION STACK 
BBS #OPTSV_RANGE, R2, 10$ RANGE SPECIFIED 

LENGTH SPECIFIED 


BBS #OPTSVLENGTH, R2, 20S 
5$: cLRL RO SYNTAX ERROR 


: Rs LOWEST ADDRESS 
GTH,(RO),30$ : SET A SINGLE BIT FOR RANGE 


496 
10$: 
498 


'w~Dw 
= 
. 


»R3 
LEN 


20S: MOVa (R1),R3 
30$: BICW #*X1FF 


R4 = LOWEST ADDRESS 
ROUND DOWN 


MAKE NUMBER OF ENTRIES 
JOIN COMMON CODE 


or 

maw 

ox 
- 

wv 

. 
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MMG PAGE TABLE FORMATTING ROUTINES 16-SEP-1984 01:35:09 VAX/VMS Macro V04-00 P 
04-000 DISPLAY. SPT DISPLAY SYSTEM PAGE TABLE reer tae Bhi gei03  Paxcvas Macro Oe. — 
6 0 .SBTTL DISPLAY_SPT DISPLAY SYSTEM PAGE TABLE 
1 1: 
é } ; DISPLAY_SPT 
631 14; THIS ROUTINE FORMATS THE ENTIRE CONTENTS OF THE SYSTEM 
6 13 ; PAGE TABLE. 
631 5 : INPUTS: 
631 18 3 
631 19 : NONE 
631 3 0; 
631 1: OUTPUTS: 
0631 28¢ 
0631 523; NONE 
631 524; 
0631 525 :--- 
0631 526 -ENABL LSB 
0631 527 
003¢ 0631 ; 8 .ENTRY DISPLAY_SPT,“M<R2,R3,R4,R5> 
00 00000000'EF 04 €5 §e33 530 BBCC #OPTSV_LENGTH,OPTIONS,DISP ; CLEAR IT, IF SET BY /ALL 
FB97 CF 00 FB 0638 331 DISP: CALLS #0,INIT_PFN ; SETUP TO READ PFN DATA 
beep 338 3 DISPLAY THE SYSTEM PAGE TABLE 
7A OOOOOOD0'EF 02 €1 0640 535 C #OPTSV_SYSTEM,OPTIONS,10$ ; BRANCH IF NOT SELECTED 
0648 238 SUBHD <System page table> 
0655 53 SKIP 
065¢ 538 GETMEM @MMGS$GL_SYSPHD ; ADDRESS OF SYSPHD 
03 50 8 0669 539 BLBS RO,5$ sBranch if ok...else 
0001 1 066C 540 BRW $ :...Return 
51 OD 066F 541 5$ PUSHL 
52. Q0000000°EF 9€ 0671 248 MOVAB BUFFER,R2 
0678 54 GETMEM PHDSL _POBR(R1), (R2) ,#8 : GET VIRTUAL SBR,SLR 
03 50 £8 0687 544 BLBS RO,6 ; Y 
00A3. «31 «(068A = 545 BRW § + BRANCH IF ERROR 
62 DD 068D 46 6$ PUSHL  (R2) : STARTING ADDRE 
55 80000000 BF DO O68F 54 MOVL  #*X80000000,R5 : STARTING ADDRESS BEING MAPPED 
09 00000000'EF 04 £0 0696 548 BBS #OPTSV LENGTH OPTIONS,7$: IF RANGE NOT SPECIFIED... 
53 04 A218 99 EF 069E 549 EXTZV  #PHDSVIPOLR,#PHDSS_POLR,4(R2),R3 ; MENTRIES 
54 «55 D9 6A4 330 MOVL R5,R4 ; STARTING ADDRESS 
55 54 «55 ¢ 6A? -551 78 SUBL3 R5.R4,R5 : OFFSET INTO AREA 
55° 55 =F9 6 8 6 23¢ ASHL = #7, R5, RS : TURN INTO NUMBER OF ENTRIES TO SKIP 
6E 3 ¢ 6B 5 ADDL RS, (SPS + UPDATE START ENTRY 
7 OS D 068 334 MOV = R38, = (SP) : WENTRIES, START ADDR 
38° AF 04 FB 0686 86 5555 CALLS #4.B*DUMP_PTE - FORMA TABLE 
00 00000000'EF 04 €E 6BA 36 BCC #OPTSV_LENGTH,OPTIONS,10$ ; CLEAR IT OUT 
3 28 5 DISPLAY THE GLOBAL PAGE TABLE 
66 00000000'EF 00 €1 06¢ 60 10$: BBC #OPTS$V_GLOBAL,OPTIONS,90$ ; BRANCH IF NOT SELECTED 
oC 9] SUBHO <Globat page table> 
6DE 86 GETMEM @MMGSGL_SYSPHD,-(SP) ; ADDRESS OF PROCESS HEADER 
6EE 564 GETMEM @MMGSGL~GPTE,Re : ADDRESS OF FIRST GPTE 
2F 50 £9 O6FE 565 BLBC RO, 90$ 
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wes ote YSTEM PAGE TABLE “SEP-1984 SDA.SRCJMMG.MAR; 1 (10) vO 

701 66 GETMEM QMMGSGL_MAXGPTE ; ADDRESS OF LAST+1 GPTE 
1F E9 07 6 BLBC — RO, 
POR HEL BR Ba Seay ecru rrsos sok STAPEMLOOMSE Os Tae 
ste | ed gf 32 Ee ae 5 SUBLS Rect RS ; ‘ ; LENGTH OF PAGE TABLE ty 
55 54 =F9 a a ay a 30$ ASHt #-7,R4,R5 : TURN INTO NUMBER OF ENTRIES TO SKIP 
6E 55 ¢O 07 é 378 ADDL RS. (SP) : UPDATE START ENTRY 
3B°AS je ‘B , ¢ f3 aa CALLS #4,B*DUMP_PTE : FORMAT PAGE TABLE 
7 9 58 "STATUS SUCCESS 
~ $5 8 358 _ 
0738 580 .DSABL LSB 


D 15 
PAGE TABLE FORMATTING ROUTINES 16-SEP-1984 9 VAX/VMS Macro V04-00 
DUMP_PTE == FORMAT THE PAGE TABLE reer ibs Bhi gsi fd PARI Mas Macro Vos: 
7 3 , .SBTTL DUMP_PTE == FORMAT THE PAGE TABLE 
7 5: 
4 § ; DUMP _PTE 
7 8 ; THIS ROUTINE FORMATS AND PRINTS A SPECIFIED PAGE 
7 9: TABLE GIVEN ITS ADDRESS AND LENGTH. ADDRESS 
7 0: OF THE PROCESS HEADER MUST ALSO BE * GIVEN TO ACCESS 
, 31 ; THE WORKING SET LIST. 
, $8 : INPUTS: 
7 95 : 4(AP) = ENTRIES OF PAGE TABLE TO D 
7 39 3 4 = STARTING ADDRESS OF REGION BEING MAPPED 
07 97 : 12(AP) = STARTING ADDRESS OF PAGE TABLE 
07 298 ; 16(AP) = ADDRESS OF PROCESS HEADER 
07 a 600 : ASSUMES THAT INIT_PFN HAS ALREADY BEEN CALLED. 
07 é 603 : OUTPUTS: 
0738 604: THE PAGE TABLE IS FORMATTED AND PRINTED. 
0738 605: 
0738 606 ;--- 
0738 607 
00000060 0738 608 SCRATCH_SIZE = 2484 : 24 LONGWORDS 
O7FC o738 610 .ENTRY DUMP_PTE,“M<R2,R3,R4,R5,R6,R7,RB8,R9,R10> 
073A 61g .ENABL LSB 
073A 61 
OAOB'CF 00 FB O73A 614 CALLS #0,W*°PTE_TITLE RINT SUB-HEADING LINE 
QO000000"EF  OAOB'CF 9E O73F 615 MOVAB W*PTE PTITLe. HEADING. routine SET HEADING ROUTINE 
59 7C 0748 616 CLRQ = RO ; INITIALIZE STATE TO, NORMAL 
04 AC DS O74A 617 TSTL  4(AP) : CHECK IF ANY TO DUM 
01 14 0740 618 BGTR 10% + BRANCH IF SO 
04 O74F 619 RET 
9730 620 10$ 
SE AO AE 9E 0750 621 MOVAB -SCRATCH_SIZE(SP),SP § ; RESERVE SPACE FOR FAO PARAMS 
52 SE OD 0754 : : MOVL SP, R2 : R2 USED TO STORE PARAMS 
O87 6 4 : FORMAT THE PAGE TABLE ENTRY 
82 08 AC v0 757 6 6 , MOVL (AP) 5 (RR) ; MAPPING ADDRESS 
a CAC 00 0758 6 MOVL 1ecaps 5 (R2)+ : VIRTUAL ADDRESS OF ENTRY 
75F 6628 TRYMEM : GET PAGE TABLE ENTRY 
769 629 BLBS : IF ENTRY FOUND 
76C = 30 MOVL a” 
26 631 BSBW ries STATE ; SET STATE = 1 (INVALID MEMORY) 
7 : : BRW : AND SKIP THIS ENTRY 
77 208: 
775634 MOVL = R1,R3 ; SAVE PTE IN R3 
778 = 635 BNEG 308 : BRANCH IF NOT NULL PAGE 
77A 6 : MOVL  #2,R0 
77D «6 BSBW 46s PTE_ STATE : SET STATE = 2 (NULL PAGES) 
80 6 : BRW 80$ : AND SKIP THIS ENTRY 


MMG PAGE TABLE pth. os 1 iS 1 4 01:35:09 
v04-000 DUMP_PTE == FORMAT THE PAGE TABLE 8236 p= 1982 3:33:43 SDA.SRCIJMMG.MAR; 1 


-SEP=-1 AX/VMS Macro V04-00 


50 ps 7 3 640 CLRL = RO 
028c 30 f 64 BSBW = PTE_STATE : SET STATE TO NORMAL 
58 53 15 EF 07 o48 EXTZV #PTESV_PFN,#PTESS_PFN,R3, 8 GET PFN IF PRESENT 
54 DO 078D 644 MOVL é vPE CODE FOR VALID 
82 D0 07 9 645 MOVL *(R2)+ : CT ORE PTE IN FAO LIST 
1 18 079 646 BGEG ; BRANCH IF NOT VALID 
00000000'EF 58 D1 0795 64 CMPL RB, PHYS_PAGES ; CHECK IF LEGAL 
08 18 079C 648 BGEQ «6s 31 ; BRANCH IF INVALID PFN 
00000040' EF D1 O79E 649 CMPL = RB, SDASGL_MAXPFN : CHECK IF WITHIN PFN DATABASE 
1D 1A 07A5 650 BGTRU 36§ + BYPASS PFN LOOKUP IF SO 
| ae ra? 631 nes B 40$ : GOOD PFN 
54 D6 O7A9 838 INCL = RG : TYPE CODE FOR 1/0 PAGE 
To Hh AB 634 “se BRB 36$ + AND INDICATE INVALID PFN 
54 53 3 16 EF 7AD $28 EXTZV #PTESV_TYPO,41,R3 RG ; BRING TYPO AND TYP1 
0353 1A €1 0782 65 C PTESV-TYP1.R3,34$ : TOGETHER 
54 O02 0786 658 on BISL  #2,R4 t SET HIGH ORDER BIT 
54 05 0789 660 TSTL RG : 0 = TRANSITION OR DZERO 
07 if 0788 661 BNEQ  36$ + BRANCH IF NOT 
58 D5 O7BD 66 TSTL RB + PFN SHOULD EO. FOR DZERO 
06 12 O7BF 66 BNEQ 40 + BRANCH IF TRANS TION 
54 04 00 orc) 664 as MOVL #4,R4 + TYPE CODE FOR SZERO 
58 01 CE orc 666 MNEGL #1,R8 ; INDICATE NO PFN 
O7C7 668: R3 = PTE LONGWORD 
0707 669: R4 = PTE TYPE CODE 
07€7 670: R& = PFN OR -1 IF NONE 
Bree oe) ios 
54 05 C& O77 $78 MULL2 45. RA : INDEX INTO TYPE TABLE 
82 05 00 O7cA 674 MOVL + LENGTH OF STRING 
82 F959 CF44 9E O7CD 675 MOVAB Tyee. REABLECRGD, (R2)+ 3: ADDRESS OF STRING 
56 7C 0703 676 CLRQ = R6 t ASSUME MODIFY/LOCK BITS OFF 
4C 53. iF €1 O7D5 677 BBC #PTESV_VALID,R3,45$ + BRANCH IF NOT VALI 
57 53, oi 1A EF 0709 678 EXTZV spTesy A MODIFY,#1,R3,R7 : GET MODIEY, BIT FROM PTE 
3E OB AC ~«(O1F- CEO ares 680 BBS oats Boke} 45s : BRANCH IF SPT 
7E7 6 ; MOVAW BEN REEREN USC ACRBI. R1>,- ; ADDRESS OF WSLX FIELD 
7E? 6 ONG_OPCODE=MOVAL.- 
7E7 684 GE=SDA 
1 685 GETMEM ( : GET LONGWORD 
18 50 53 A 686 LBC. ~—_-«RO, 458 : IF NOT FOUND 
51 51 : D 68 CVTWL = R1,RI : EXTEND FIELD 
= 10 688 EQL. 4 : BRANCH IF NOT A WSL INDEX 
51 10 8C41 dE 081 689 VAL @16(AP)CR1J,R1 + ADDRESS OF WSL ENTRY 
17 690 GETMEM ( : GET WSL LONGWOR 
56 51 O01 OS EF 691 iain EXTZV #WSLSV_WSLOCK,#1,R1,R6 : WSL LOCK BIT 
51 53 18 COEF $34 EXTZV spTESY PROT,APTESS_PROT,R3.R1__; GET PROTECTION CODE 
DO A 694 MOVL : CENGTH OF STRING 
82 F8B5 CF41 DE p 95 MOVAL Pror TABLECR12, (R2)+ + PAGE PROTECTION 
D 696 MOVL (R2)+ : SIZE OF MODIFY STRING 


82 
51 00000048'FF MOVAB @SDASAB_TYPECR8I,R1 


GET TYPE FIELD 


GETMEM (R1) 
s 1$ 


Ar 


So 
> 
wun fy Sm Suns Sue FEOOU foo 


a 


; SKIP IF ERROR 


A 
zZzz2o@w 
ocoomar- 

<<cw 

~ 

o 

— 
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v04-000 DUMP_PTE == FORMAT THE PAGE TABLE Set) 7 83:33:93 YODA SRCIMAG MAR: 1 . d 
82 FOOB CFR47 9 6 69 MOVAB MODIFY_TABLECR7],(R2)+ ; ADDRESS OF STRING 
Be 01 p C 69 MOVL #1, (R274 + SIZE OF WSLOCK STRING 
2. F9 crag E F MOVAB wstOCk = JABLECRG) (R2)+ _: ADDRESS OF STRING 
51 3 9 17 EF «(0845 EXTZV #PTE OWN #PTESS_OWN, RB, Rl; ger” PAGE OWNER 
01 DO 084A 7 MOVE #1, (R LENGTH OF STRING 
82 FB8DS CF41 3 40 7 MOVAB OWNER STABLECRTI, ,(R2)+ + ADDRESS OF oer NG 
oe aa : ; SFAOL.. $ ereetet” { -LIST+RABSW_ RS2, Lin OESCReese SCRATCH A St 2E CFP) 
00000000'EF 00 FB 0871 7 CALLS #0,PUT_LINE oOTPuT & 
0168 31 28 f BRW 80$ : SKIP TO NEXT ENTRY 
0 2B f ; FORMAT THE PFN STRUCTURES ASSOCIATED WITH THIS PTE 
0878 710 50s: 
51 00000048'FF48 9E 0 4 71 MOVAB @SDASAB_TYPECR8I,R1 
88 71 GETMEM CRI) 
58 50 «669 «(088C) O71 BLBC SKIP IF ERROR 
51 5103 EF OB88F 71 EXTZV ap nsy PAGTYP, APFNSS _PAGtYP R1,R1 i GET PAGE TYPE 
8¢ 07 00 0894 71 MOVL #7, (R274 ; LENGTH OF STRING 
82  FBF? CF 7E 0897 71 MOVAQ PaGt te TABLECR1] (R24 : ADDRESS OF STRING 
51 00000044'FF 9E 089D 71 MOVAB @SDASAB_ STATECRBI,R1 
OBA 71 GETMEM cai 
39 E9 OBAE 71 BLBC ; SKIP IF ERROR 
51 5103 EF 0881 7 EXTZV hee LOC, #PFNSS_LOC,R1.R1 GET PAGE LOCATION 
a pe 0 0886 7 MOVL R234 : LENGTH OF STRING 
82 F895 CF é 068 7 MOVAQ ify FaBLECRI (R de : ADDRESS OF STRING 
51 00000044'FF 9E 0 7 MOVAB SSDKSABL STATECREJ, 
08 7 GETMEM (R1) ; GET STATE FIELD 
17 9 7 RO, 0s : SKIP IF ERROR 
9A 08 7 R1,(R2)+ 
8 7 
8 7 
ef 
beep 
08 7 
8 7 
7 
9 7 
9 7 
9 7 
9 7 
9 7 
9 74 
9 74 
9 74 
9 


-—-9o @o-0 @2-0c @—00O 20 @B—NOCO @W—~vVO 
co 


WRI OO NAW EWN 9 OD NOU EIN — © OD NOAM EWI 2 O OOD NAME WIN O OD NOU EW OUOOn~ 
=z 
o 
< 
~~ 
o 
= 


1 
6 
9 
F 
C? 
8 
Dé 
a 
E RO,7 
EA 80 
82 9a OB8ED R1, (R2) 
51 0000004C'FF 3E FO VAW  a@SDASAW * REFCNTCRE), R1 
F GETMEM (R1) ; COUNT OF PAGE REFERENCES 
E6 9 0901 BLBC  ——RO,70 + SKIP IF ERROR 
82 C 0904 MOVZWL R1.(R2)+ 
51 00000050'FF DE 0907 MOVAL @SDASAL_BAKCR8I,R1 
OF GETMEM (R1) : BACKING ST ORE ADDRESS 
CF E9 0918 BLBC = RO, 708 : SKIP IF ERR 
82 DO 0918 MOVL  R1.(R2)¢ 
51 00000054'FF DE 15 MOVAL @SDASAL_°TECR8).R1 
GETMEM (R1) : ADDRESS OF PTE 
B8 9 F BLBC = RO, 708 : SKIP IF ERROR 
82 DO : 74 MOVL 1. (R2)4 
9 74 PFN Renee 
9 74 MOVAW << as ASAx EN CAKCRE), R1>,- 
9 74 LONG_OPCODE=MOVAL ,- 
935 74 IMA e =SDA 
94F 74 GETMEM ; FORWARD PAGE LIST LINK 
8F 50 £9 0958 74 BLBC RO,70$ : SKIP IF ERROR 
958 7 PEN ~REF ERENCE - 
958 7 MOVZWL <R1- 
958 7 CONG OPCODE=ROVL..~ 
958 7 IMAGE=S 


G1 
PAGE TABLE pte. ney UTINGS 16-$ 9 VAX/VMS Macro V04-00 Page 21 P| 
DUMP_PTE == FORMAT THE PAGE TABLE g-seF 1382 83: 33: 98 EDA SRCIMMG MARS 1 . hp vi 
968 754 1 oy ENCE = 
968 755 MOVAW ay Ax_BLINKCR8],R1>,- 
968 7 § LONG _OPCODE=MOVAL,-=- 
3 8 ; GETMEM IRAGE® ee BACKWARD PAGE LIST LINK 
55 50 €9 09 ‘ 7 : BLBC SP 80$ 3; SKIP IF ERROR 
9 760 pra =PEEERENCE - 
991 761 MOVZWL <R1,(R2)+> 
ae 166 tONé_OPCODE=HOVL 
9A1 764 ; For a than 32 Mbytes, use longword fo 
OA 765 PFN_DISP_IF_BIGPFN_THEN END_BIGPFN_CODE=74$ 
Boag :This code executes if the PFN Link arrays are longword arra 
9A 766 SFAOL_S PTECTL2_LONG,LIST+RABSW_RSZ,LINE_DESCR, Pn Ci SIZE CFP) 
Q9C 76 : Otherwise, use word forma 
9¢ 768 PFN_DISP_ELSE ist _CODE=74$ , COMMON. CODES £778 
09cs :This code executes if the PFN Link arrays are word arra ozs - 
09cs 769 SFAOL_S PTECTL2_WORD,LIST+RABSW_RSZ,LINE_DESCR,-SCRATCH_SIZE(FP) 
Bopr 770 PFN_DISP_ ENDIF “COMMON CODE=77$" 
O9DF End of code that ,fovends on size of PFN Link arrays 
00000000'EF 00 FB O9DF 7 iALts #0,PUT_LINE ; OUTPUT LINE 
09E6 ae $ SKIP TO NEXT PAGE TABLE ENTRY 
O9E6 774; 
0966 775 80S: 
5E 60 AE 9E O9E6 776 MOVAB SCRATCH_SIZE(SP),SP ; DEALLOCATE FAO SPACE 
OC AC 04 co Boer 777 ADOL #4,12(AP) 3; NEXT PTE 
08 AC 00000290 8F CO O9EE 778 ADDL #512 8( AP) 3 epee a pel Sopsay” = 
04 AC D7 O9F6 779 DECL 4(APS : DECREMENT REPEAT COUNT 
9 15 O9F9 780 BLEQ 90$ ; EXIT IF DONE 
FDS20s 31 s«O9FB 781 BRWw 10$ 
oOre re 90$: 
50 ps SFE 78 CLRL RO 
0041 0 ang 784 SBW PTE_STATE 3 TERMINATE CURRENT STATE 
pA 785 STATUS SUCTESS 
04 AOA 786 ET 
A0OB 787 
A0B oe -DSABL LSB 
AOB 789 
AOB 790; 
. ah 2 SUBROUTINE TO PRINT THE SUB-HEADING LINE 
AOB 79 
A 794 - ENABLE LOCAL_BLOCK 
A 795 
Ads 796 PTE_TITLE: 
0000 OA 79 -WORD 0 
AOD 79 
AOD 79 SKIP 1 
wie 800 PFN_DISP_IF _BIGPFN_THEN :; For larger than 32 Mbytes, use longword fo 
Ale ' :This code eyocuses if the PFN Link arrays are longword arrays. 
A1E $03 <3. ADDRESS SVAPTE PTE TYPE PROT BITS PAGTYP LOC S$ 


PAGE TABLE FORMATTING ROUTINES 19r$6 SEP=1 38¢ 3: 33: 98 AX/VMS Macro V04-00 

DUMP_PTE == FORMAT THE PAGE TABLE EP=1984 2 (CSDA.SRCJMMG.MAR;1 
. : 803 PFN_DISP_ELSE 3; Otherwise, use word format 
“ i) ‘ ;This code eae if the PFN Link arrays are word arrays. 
AoD Bos Apore gs SVAPTE PTE TYPE PROT BITS PAGTYP 
5 : 6 PFN_DISP <ERDit 
A! sEnd of goes that depends on size of PFN Link arrays 
A3A = 807 SKIP \ 

04 0A43 4: 

ALG 0 
A44G 10 DISABLE LOCAL_BLOCK 


LOC $ 


Pree OLE F ~/ 
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~SBTTL PTE_STATE SET STATE OF PTE DISPLAY 


PTE_STATE 


SET STATE OF RUNNING SCAN OF PAGE TABLE AND PRINT ANY 
STATUS MESSAGES FROM THE PREVIOUS STATE. 


INPUTS: 
RO = 
Rg 
R10 = 


OUTPUTS: 


ED _NEW STATE 
STATE 
ION COUNT IN SAME STATE 


u“ 
Dow 
mcm 
ard =) 
—wC 
-—mm 
—zewn 
4344 


NEW STATE 
UPDATED REPITITION COUNT 


R9 
R10 


-ENABL LSB 
PTE_STATE: 
CMPL 


RO,RO : CHECK IF ALREADY IN STATE 
BNEQ 108 + BRANCH IF NOT 
INCL R10 : INCREMENT REPITITION COUNT 
10$: 
PUSHL RO : SAVE NEW STATE 
CMPL RO, #1 : CHECK IF BYPASSING BAD MEMORY 
BNEQ 208 : BRANCH IF NOT 
SKIP 1 
PUSHL R10 
PRINT 1,<!_-------- 'UL ENTRIES NOT IN MEMORY> 
SKIP 1 
pa BRB 80$ 
CMPL = RO, #2 : CHECK IF SKIPPING NULL PAGES 
BNEQ 80% : BRANCH IF NOT 
SKIP 1 
PUSHL R10 
PRINT 1,<!_-------= 'UL NULL PAGE! %S> 
SKIP 1 
80$: 
POPL R9 : SET NEW STATE 
mOVL #1,R10 : INITIALIZE REPITITION COUNTER 
.OSABL LSB 


<v 
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MMG 

Symbol table 
ARGS 

BUFFER 

DISP 

prea at -PEN 
DISPL 


DISPLAY ~ St RANGE 


DUMP _PTE 


READING ROUTINE 
LINE _DESCR 
LOC TABLE 


OPi$V~ “SINGLEPFN 
OPTSV"SYSTEM 
oot sy WHOLEPFN 


D 
PFNSAL_HILIMIT 
PF NSAL_LOLIN IT 


PFN TE 
PENSAU REF CNT 


PR 
PROT_ TABLE 
PTESS_OWN 


RRRRRARE 
RREERKEE 
RRAEEKEEE 


000001D7 RG 


RReKKEET 
Reeeeeee 


00000153 R 


RERERERE 
RRAKRAEE 
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res set Limit was 1500 pages. 
1 03 bytes (150 pages) of virtual memory were used to buffer the intermediate code. 
There were pages of symbol table space allocated to hold 875 non-local and 96 local symbols. 
865 source Lines were read in Pass 1, producing 41 object records in Pass 2. 
1 pages of virtual memory were used to define 29 macros. 
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Macro Library name 


_$255$DUA28 p08 8s 190A 18, -MLB; 1 y 

“$ geenu A B:t3 MLB; 1 9 
$255$DUA SYSiIBSTARLET.. MLB; 2 ? 

Tovacs call libraries) 2 


1055 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:MMG/OBJ=0BJ$:MMG MSRCS$:MMG/UPDATE=(ENHS$:MMG) +EXECML$/LIB+L1B$:SDALIB/LIB 


PSECT name Allocation PSECT No. Attributes 
. £800 008 ( -) 0O¢ 0.) NOPIC USR CON §$ LCL N 
SABSS 00000000 ¢ ‘a: e -) NOPIC USR CON ABS~ LCL NOSH 
SDADATA 00000064 ( 100.) § ( ¢° NOPIC USR CON REL LCL NOSHR NO 
4h mr} ( A: ) ( -) NOPIC USR CON REL LCL NOSHR 
LITERALS 00046 ( 1122.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR 
¢weeemmeocenencscee ce eoaaose } 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.03 00:00:01 .48 
seunege processing Hg BB 80:09 BS 88:88: 7-9) 
Synbol table sort 9 $0;0030 :97 $000; 3°81 
s2 16 00:00:0 6) 00:00: 8-83 
ee table output 11 9 FE ‘ 00:00:00.3 
Psect synopsis output 3 00:00:00.0 00:00:00.02 
Cross-reference output set Se Ba Bb ee eo 
Assembler run totals 674 00:00:11. 00:00:46.59 
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